home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / A-COMAL Series / (k)aaq.d64 / n.dat < prev    next >
Text File  |  2007-02-28  |  1KB  |  95 lines
  1. 8000 FOR J:=1 TO 4 DO //N1
  2. 8010  PENUP 
  3. 8020  FORWARD 2
  4. 8030  PENDOWN 
  5. 8040  FORWARD 7
  6. 8050  PENUP 
  7. 8060  FORWARD 10
  8. 8070  PENDOWN 
  9. 8080  FORWARD 7
  10. 8090  PENUP 
  11. 8100  BACK 26
  12. 8110  LEFT 90
  13. 8120  FORWARD 1
  14. 8130  RIGHT 90
  15. 8140 ENDFOR J
  16. 8150 //
  17. 8160 FOR J:=1 TO 20 DO // 2
  18. 8170  PENDOWN 
  19. 8180  FORWARD 28
  20. 8190  PENUP 
  21. 8200  BACK 28
  22. 8210  LEFT 90
  23. 8220  FORWARD 1
  24. 8230  RIGHT 90
  25. 8240 ENDFOR J
  26. 8250 //
  27. 8260 FOR J:=1 TO 14 DO // 3
  28. 8270  PENUP 
  29. 8280  FORWARD 2
  30. 8290  PENDOWN 
  31. 8300  FORWARD 24
  32. 8310  PENUP 
  33. 8320  BACK 26
  34. 8330  LEFT 90
  35. 8340  FORWARD 1
  36. 8350  RIGHT 90
  37. 8360 ENDFOR J
  38. 8370 //
  39. 8380 FOR J:=1 TO 2 DO // 4
  40. 8390  PENUP 
  41. 8400  FORWARD 4
  42. 8410  PENDOWN 
  43. 8420  FORWARD 20
  44. 8430  PENUP 
  45. 8440  BACK 24
  46. 8450  LEFT 90
  47. 8460  FORWARD 1
  48. 8470  RIGHT 90
  49. 8480 ENDFOR J
  50. 8490 //
  51. 8500 PENUP 
  52. 8510 FORWARD 18
  53. 8520 RIGHT 90
  54. 8530 FORWARD 1
  55. 8540 RIGHT 90
  56. 8550 FOR J:=1 TO 13 DO //4
  57. 8560  IF J=1 THEN
  58. 8570   A:=8
  59. 8580  ENDIF 
  60. 8590  IF J=2 THEN PRINT 3-13
  61. 8600  A:=A-.5
  62. 8610  PENDOWN 
  63. 8620  PENCOLOR 15
  64. 8630  FORWARD A
  65. 8640  PENUP 
  66. 8650  BACK A
  67. 8660  LEFT 90
  68. 8670  FORWARD 1
  69. 8680  RIGHT 90
  70. 8690 ENDFOR J
  71. 8700 PENCOLOR 6
  72. 8710 //
  73. 8720 PENUP 
  74. 8730 FORWARD 8
  75. 8740 LEFT 90
  76. 8750 FORWARD 23
  77. 8760 LEFT 90
  78. 8770 FOR J:=1 TO 13 DO //5
  79. 8780  IF J=1 THEN
  80. 8790   A:=9
  81. 8800  ENDIF 
  82. 8810  IF J=2 THEN PRINT 3-13
  83. 8820  A:=A-.5
  84. 8830  PENDOWN 
  85. 8840  PENCOLOR 15
  86. 8850  FORWARD A
  87. 8860  PENUP 
  88. 8870  BACK A
  89. 8880  LEFT 90
  90. 8890  FORWARD 1
  91. 8900  RIGHT 90
  92. 8910 ENDFOR J
  93. 8920 PENCOLOR 6
  94. 8930 FORWARD 9
  95.